home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
DiskUtil
/
Directory
/
DirFool
/
Install
< prev
next >
Wrap
Text File
|
1995-08-28
|
693b
|
34 lines
(if (= @language "deutsch")
(
(SET Intro "Wilkommen zum Installer-Script für DirFool")
(SET PLace "Wohin soll das DirFool-Paket hinkopiert werden ?")
)
)
(if (= @language "english")
(
(SET Intro "Welcome to the installer-script for DirFool")
(SET Place "Where do you want to place the DirFool-package. A drawer, called DirFool will ce created")
)
)
(MESSAGE Intro)
(SET PackDir
(ASKDIR
(PROMPT Place)
(HELP "")
(DEFAULT "sys:")
)
)
(SET XDest (tackon PackDir "DirFool"))
(RUN (CAT "makdir \""XDest"\""))
(COPYFILES
(SOURCE ":DiskUtil/Directory/DirFool/")
(DEST XDest)
(ALL)
(INFOS)
)